home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / obero / Interfaces3_4.lha / Interfaces / Potgo.mod < prev    next >
Text File  |  1994-03-05  |  562b  |  35 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: Potgo.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE Potgo;
  11.  
  12. IMPORT e * := Exec;
  13.  
  14. CONST
  15.   potgoName * = "potgo.resource";
  16.  
  17. VAR
  18.  
  19. (*
  20.  *  You have to put a pointer to the potgo.resource here to use the potgo
  21.  *  procedures:
  22.  *)
  23.  
  24.   base * : e.APTR;
  25.  
  26.  
  27. PROCEDURE AllocPotBits *{base,-  6}(bits{0}  : SET): SET;
  28. PROCEDURE FreePotBits  *{base,- 12}(bits{0}  : SET);
  29. PROCEDURE WritePotgo   *{base,- 18}(word{0}  : SET;
  30.                                     mask{1}  : SET);
  31.  
  32. END Potgo.
  33.  
  34.  
  35.